home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / tpstuff1.arc / FLTPTBM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-08-09  |  515 b   |  36 lines
  1.  
  2.  (* Listing 3: BYTE floating point calculation benchmark in Turbo Pascal. *)
  3.  
  4. { copywrited 1984 by Laine Stump.  For private, non-commercial use only }
  5.  
  6. PROGRAM calc (output);
  7.  
  8. CONST
  9.     nr = 5000;
  10.     a  = 2.71828;
  11.     b  = 3.14159;
  12.  
  13. VAR
  14.     c : real;
  15.     i : integer;
  16.  
  17. begin
  18. c := 1;
  19. FOR i := 1 to nr DO
  20.  
  21.     begin
  22.     c := c * a;
  23.     c := c * b;
  24.     c := c / a;
  25.     c := c / b;
  26.     end;    { for i := 1 to nr }
  27.  
  28. writeln ('done');
  29. writeln ('error = ', c-1);
  30. end. { calc }
  31.  
  32.  
  33.  
  34.  
  35.  
  36.